Option Explicit
Sub N_Sample029()
    Dim myObj As Object
    Dim myErr As Long
    On Error Resume Next
    Set myObj = Worksheets(Int(Rnd * 5))
    myErr = Err.Number
    On Error GoTo 0
    If myErr = 0 Then
        MsgBox "SoͿ~C"
    Else
        MsgBox "oͤF~A~X" & myErr & "C"
    End If
    Set myObj = Nothing					'
End Sub
